<%@ Language=VBScript %> <% If session("username")="" And session("agentusername")="" Then ef=True ec="授权非法，有可能是超时造成的。" 'If session("HOSTAUID")<>"" Then ec="主机面板中不能操作用户区的内容，请您先登陆用户区。" 'If session("IDCAUID")<>"" Then ec="邮箱面板中不能操作用户区的内容，请您先登陆用户区。" 'If session("SQLAUID")<>"" Then ec="数据库面板中不能操作用户区的内容，请您先登陆用户区。" 'elseif Request("domain")<>"" and IsValidIDC(IDCname)=false then ' ef=True ' ec="存在无效邮箱名称！请检查域名是否正确。" end If if not ef then if session("agentusername")<>"" Then%> <%session("FreeHostCom").FreeHost_WR("html5")%> <%else%> <%End if%> IDC托管/租用类 <%if session("agentusername")<>"" Then%> <%session("FreeHostCom").FreeHost_WR("html6")%> <%else%> <%End if%>
<%Set conn=Server.CreateObject("ADODB.Connection") conn.Open Application("FreeHostDBlink") username=session("username") If session("agentusername")<>"" Then username=session("agentusername") End If Set dsph = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Product_IDC where username='"&username&"' order by endtime desc" if Instr(1,sql, ";", 1)>0 or Instr(1,sql, "--", 1)>0 then Response.Write "非法字符！" Response.End end if dsph.PageSize = 25 dsph.Open Sql,conn,1,1 if dsph.Eof then%> 没有开通的托管/租用产品. <%else%> <% if Request.ServerVariables("QUERY_STRING")<>"" then ask=Split(Request.ServerVariables("QUERY_STRING"), chr(38)&"pn") else ask=Split("freehost=1", "") ask(0)="freehost=lsoft" end if pn=1 if Request.QueryString ("pn")<>"" then pn=Request.QueryString ("pn") If dsph.RecordCount <> 0 Then dsph.AbsolutePage = CLng(pn) if clng(pn)<=10 then begini=1 if dsph.PageCount<=10 then endini=dsph.PageCount else endini=10 end if end if %> <%if clng(pn)<=10 then%>最新 <%for i=begini to endini if clng(pn)=i then%>[<%=i%>]<%else%>[<%=i%>]<%end if%>　<%next%> <%else%>　最新[1]--[10]　　现在是第[<%=pn%>]页 　共<%=dsph.PageCount%>页　<%end if%><%If Clng(pn)>1 Then%>上一页<%End If%>|<%If Clng(pn)下一页 <%End If%> <% For N=1 To dsph.PageSize If dsph.RecordCount=0 Then Exit For %> <% IDCtype=dsph("IDCtype") Set ori_IDC_name = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_IDCProductlist where IDCtype='"&dsph("IDCtype")&"'" ori_IDC_name.Open Sql,conn,1,1 if not ori_IDC_name.eof then Set newname_IDC = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_IDCProductlist_AGN where agent1='"&session("agentname")&"' and id='"&ori_IDC_name("id")&"'" newname_IDC.Open Sql,conn,1,1 if not newname_IDC.eof then IDCtype=newname_IDC("IDCtype") end if end if %> <% If clng(pn)=dsph.PageCount Then I = dsph.RecordCount - (dsph.PageCount-1) * dsph.PageSize If N=I Then Exit For End If dsph.movenext Next%>

产品类型	类别	IP 地址	开通日期	到期日期	状态	操作
<%=IDCtype%>	<%if ori_IDC_name("istg")=true then%>托管<%else%>租用<%end if%>	<% Set dsX = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_IDCIP where PDID="&dsph("id") dsX.Open Sql,conn,1,1 If dsX.Eof Then%> IP尚未分配 <%else while not dsX.eof %> <%=dsX("IP")%> <% dsX.movenext wend end if%>	<%=formatdatetime(dsph("starttime"),1)%>	<%=formatdatetime(dsph("endtime"),1)%>	<%if dsph("endtime")>NOW then%> <%if dsph("istest")="y" then%> 试用 <%else%> <%=dsph("status")%> <%end if%> <%else%> 过期 <%if dsph("status")="暂停" then%> 暂停 <%end if%> <%end if%>	">延期<%if dsph("IPMIserverid")>0 then%>　&op=重启" onclick="JavaScript:if(!confirm('请确认重启')){return false;}">重启<%end if%>
		备注：	<%=dsph("userremindinfo")%>
		订单处理结果：	<%=dsph("openinfo")%>

<%dsph.close set dsph=nothing end if %>



<%if session("agentusername")<>"" Then%> <%session("FreeHostCom").FreeHost_WR("html7")%> <%else%> <%End if%> <%end if if ef then Response.Redirect "e.asp?e="&ec end if%>